perm filename MSGLOG[S,AIL]2 blob
sn#013941 filedate 1972-11-24 generic text, type T, neo UTF8
I fixed up the file of this morning's message (but still have a listing
in case you want to see it) but it still "DRYROTS". The file is
TRY.SAI[G,MJC]. Is there something special I should know about for-stmts?
Mike Clancy
17-NOV-72 1742 G,MJC
A program which I wrote to try to learn a few things (namely SAIL and the
Quam display routines) uncovered a "DRYROT" error. The program is
TRY.SAI[G,MJC], and the error occurred in line 2600. Any suggestions?
Mike Clancy
JAM again. Sorry, it doesn't go away with
an "IF TRUE THEN", only with an "IF FOO THEN"
22-NOV-72 2344 MA,JAM
JAM here bringing to you yet another
insidious SAIL bug. There is a program
BUG.SAI[MA,JAM] which compiles the following
code incorrectly (see page 6 of source file):
BEGIN "FLTO"
REAL ARRAY Y[1:LN+GWIDTH];
*** LOTS OF STUFF ***
END "FLTO";
BEGIN "DPGT"
INTEGER ARRAY BUF[1:5500];
*** MORE STUFF ***
END "DPGT";
The following code appears:
DPGT&DPGT.-6/ PUSHJ P,BEXIT
DPGT&DPGT.-5/ PUSH P,3 ; LOWER ARRAY BOUND???
DPGT&DPGT.-4/ PUSH P,[=5500] ; THIS IS OK
DPGT&DPGT.-3/ PUSH P,3 ; IT SEEMS TO THINK AC3 CONTAINS A 1
DPGT&DPGT.-2/ PUSHJ P,ARRMAK
This, of course, gets a "UPPER BOUND<LOWER BOUND" error
message, for constant bounds yet! Anyway, the problem
goes away if you put an "IF TRUE THEN" in front of
the BEGIN "DPGT". Is that enough?
22-NOV-72 2341 MA,JAM
Dear Ail,
CASE n OF (ITV, ITV, ... ITV) generates, in at least one case
<case check>
JRST @TABLE(IDX)
PUSH P,ITV
JRST DONE
...
PUSH P,ITV
JRST DONE
TABLE: .-...
.-...
...
TABLE-2
DONE: POP P,TBITS2
MOVE A,0 ;!!!!!!!!!!!
....
This is fairly recent (MOVE s/b MOVE A,TBITS2 or whatever).
DCS
20-NOV-72 0341 SLS,DCS
I RAN INTO PROBLEMS WHEN USING THE SAIL DPB COMMAND.
THE CODE GENERATED FOR THE INSTRUCTION
DPB(A,POINT(11,BUFX[POINTER],10))
SEEMED TO LOAD A INTO REGESTER 10 AND PROMPTLY DEPOSIT REG 11.
THE PROGRAM IS TEST.SAI ON [1,EMC], AND THE OFFENDING LINE IS IN THE
AIVCT1 PROCEDURE FOUND ON PAGE 4, I BELIEVE.
19-NOV-72 0831 1,EMC